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ABSTRACT 


The  computerized  bibliography  allows  the  index¬ 
ing  and  retrieval  of  scientific  research  papers  for 
intense  short-term  efforts  through  the  use  of  a  large 
mainframe  in  the  batch  mode.  Criteria  are  entered 
through  keypunched  cards  and  the  computer  produces 
the  requested  subsets. 

INTRODUCTION 

Personnel  involved  in  scientific  research  often  have  the  need  to 
assemble  a  bibliography  for  use  in  a  paper  or  book  or  as  a  tool  for 
advancement  of  their  research.  Often  this  bibliography  will  cover  a 
broad  topic  with  numerous  subtopics  identified.  This  is  the  situation 
which  precipitated  the  development  of  this  computer  program.  Several 
researchers  at  this  facility  were  requested  to  prepare  a  paper  on 
"Fouling  Control  Technology".  Upon  preparation  of  the  outline,  40 
initial  subtopics  were  identified.  A  library  computer  search  supplied 
the  assigned  authors  with  several  thousand  titles  and  abstracts  applicable 
to  this  area.  Review  of  the  titles  and  abstracts  revealed  a  large  number 
of  articles  worthy  of  further  review  and  these  were  obtained.  A  filing 
and  cross-referencing  system  was  necessary  with  only  about  1  month  notice 
and  very  limited  funds  for  computer  time  and  personnel. 

Due  to  the  limited  time  and  funds,  an  in-house  task  was  developed 
to  allow  organization  of  the  bibliography  utilizing  the  on-site  CDC 
6600/6700  computing  system  with  a  NOS/BE  operating  system  and  FORTRAN  IV 
programming  language.  The  program  developed  may  not  be  the  most  efficient 
possibly  due  to  the  relatively  inexperienced  programmer  and  limited  time 
available,  but  it  proved  invaluable  for  short-term  organization  of  a 
large  number  of  references.  Table  1  is  a  copy  of  the  outline  used  for 
this  program.  With  minor  modifications,  the  program  could  be  adapted 
to  any  outline.  The  program  is  limited  to  the  number  of  topics  by  the 
configuration  of  the  hardware  of  the  computing  system.  The  articles  are 
cross-referenced  by  a  bit  set  allowing  one  bit  in  a  word  of  memory  to 
represent  each  section.  The  CDC  6600/6700  system  utilizes  a  60  bit  word 
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"FOULING  CONTROL  TECHNOLOGY"  OUTLINE 


TABLE  1  - 
1.0  Introduction 

1.1  Designing  Integrated  Fouling  Control  System 
2.0  Evaluation  of  Efficacy 

2.1  In  Situ  Testing 

2.1.1  Raft  Tests 

2.2  Accelerated  Tests 

2.2.1  Dynamic 

2.2.2  Bioassay 

2.2.3  Leaching  Rate 
3.0  Chemical  Control  Technology 

3.1  Toxic  Control  Agents 

3.1.1  Delivery  Systems 

3. 1.1.1  Coatings 

3. 1.1. 2  Elastomers 

3. 1.1. 3  Direct  Injection 

3 . 1 . 1 . 4  Impr egnat ion  (Wood) 

3. 1.1. 5  Structural  Incorporation 

3.2  Non-Toxic  Control  Agents 

3.2.1  Delivery  Systems 
4.0  Physical  Control  Technology 

4.1  Mechanical  Methods  of  Control 

4.1.1  Scrubbing 

4. 1.1.1  Exterior 

4. 1.1. 2  Interior 

4.1.2  Jets 

4.1.3  Sonics 

4. 1.3.1  Ultrasonics 

4. 1.3. 2  Infrasonics 

4.1.4  Low  Surface  Energy  Materials 

4.2  Electrical  Methods 

4.3  Magnetic  Methods 

4.4  Optical  Methods 

4.5  Nuclear  Methods 

4.6  Thermal  Methods 
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TABLE  1 


"FOULING  CONTROL  TECHNOLOGY"  OUTLINE 


(continued) 


4.7  Osmotic  Methods 

4.8  Surface  Modification  Methods 

4.9  Explosive  Removal  Methods 
5.0  Conclusions 

j.l  Present  Practice 
5.2  Future  Directions 


and  therefore  the  program  can  be  utilized  on  this  system  for  up  to  60 
topics  without  increasing  memory  requirements. 

PROGRAM  CAPABILITIES 

This  program  was  designed  with  limited  resources  and  time.  It  is 
for  a  specific  purpose,  but  many  of  its  methods  can  be  adapted  for  a 
wide  range  of  purposes. 

The  program  will  read  an  existing  file  of  references  into  its  working 
array  and  then  add  to  it  a  set  of  new  references.  The  working  array  is 
sorted  alphabetically  then  copied  onto  a  new  permanent  file.  References 
to  all  sections  requested  alphabetically  are  printed  out,  then  the  array 
is  sorted  chronologically.  References  to  all  sections  requested  chrono¬ 
logically  are  printed  out,  the  array  is  sorted  numerically  and  all  sections 
requested  in  that  order  are  printed  out. 

The  program  requires  about  185  CP  seconds  to  run  with  550  articles. 

An  array  size  of  850  references  requires  42,000  bytes  of  memory.  For 
350  articles  about  115  CP  seconds  are  required  to  run  the  program  and  an 
array  size  of  1000  references  requires  47,000  bytes  of  memory.  A  perma¬ 
nent  reference  file  of  550  references  takes  up  120  PRU’s  of  storage  space 
on  the  CDC  6600/6700  system. 
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DATA  HANDLING 


In  the  text  of  this  report,  a  single  piece  of  data  is  considered  to 
be  a  single  bibliographic  reference*  Upon  receipt  of  a  reference,  the 
authors  were  instructed  to  assign  tne  reference  a  unique  accession  (access) 
number.  This  number  was  assigned  by  placing  one  of  preprinted,  sequentially 
numbered  labels  supplied  by  the  data  manager  onto  the  reference. 

Upon  receipt  of  30  references,  the  authors  were  prepared  to  complete 
a  set  of  data  submission  sheets.  These  sheets  were  specially  formatted, 
standard  keypunch  forms  which  correspond  to  the  data  entry  format  in  the 
computer  program  and  are  seen  as  Figures  1,  2,  and  3.  The  author  would 
complete  the  same  line  on  all  three  forms  for  each  reference. 

Several  key  instructions  were  given  in  completing  the  forms. 

A.  Figure  1  (Card  1) 

1.  Place  the  accession  number  as  far  to  the  right  as  possible  in 
the  six  columns  (i.e.,  32  becomes  000032,  not  320000). 

2.  Ten  spaces  are  allowed  for  authors*  last  names.  If  a  name  is 
longer  than  10  letters  use  nine  letters  and  an  asterisk  (*) 
in  the  tenth  space. 

3.  Put  both  initials,  if  known,  no  periods. 

4.  In  the  event  a  reference  has  more  than  3  authors,  put  an 
asterisk  (*)  in  the  first  space  of  the  area  for  3rd  author’s 
last  name.  Leave  the  rest  of  the  area  for  3rd  author  blank. 

3.  If  an  article  is  by  an  anonymous  author  put  ANON  in  the  area 
designated  for  1st  author’s  last  name. 

6.  In  the  event  that  a  title  is  longer  than  the  36  spaces  allowed, 
put  35  characters  and  an  asterisk  (*)  in  the  36th  space. 

B.  Figure  2  (Card  2) 

1.  Free  area,  38  spaces  are  allowed  for  primarily  publication 
information,  use  ASTI  (Applied  Science  and  Technology  Index) 
standard  abbreviations  for  titles,  wherever  possible. 

2.  The  last  2  digits  of  the  year  of  publication  must  be  in  the 
columns  designated.  In  the  event  the  year  is  unknown,  put 
00. 
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C.  Figure  3  (Card  3) 

1.  Place  a  1  (one)  in  the  columns  corresponding  to  the  sections 
under  which  the  reference  is  useful. 

2,  Each  article  should  be  designated  under  as  broad  a  range  of 
categories  as  possible  (i.e.,  if  an  article  is  applicable  to 
section  4112,  it  would  be  anticipated  to  also  be  applicable 
to  sections  4110,  4100,  and  4000). 

D.  General  Instructions 

1.  Use  all  capital  letters  in  filling  out  the  data  sheets. 

Upon  completion  of  a  set  of  data  sheets,  the  articles  were  filed  and 
the  sheets  were  sent  for  keypunching. 

Data  sheet  design  was  based  on  several  constraints  of  the  program. 

We  were  hoping  to  limit  memory  usage  and  run  time,  and  provide  access  to 
data  lines  by  NETED,  (text  editor  modeled  after  the  standard  Arpanet 
Editor) .  The  data  sheets  proved  rather  tedious  to  complete,  but  suited 
the  purpose  of  the  program  ideally. 

DATA  INPUT 


Data  (references)  can  be  input  in  two  ways.  One  is  to  submit  groups 
of  up  to  30  first  cards,  followed  by  the  same  number  of  second,  then  third 
cards.  This  is  referred  to  as  block  input. 

The  second  method  is  to  submit  the  cards  sequentially  i.e.,  the 
three  cards  for  each  reference  are  together.  The  deck  of  data  cards  is 
preceded  by  a  single  card  with  a  flag  which  indicates  the  order  the  cards 
are  in.  A  flag  of  zero  (0)  in  the  1st  column  represents  sequential  input 
and  a  flag  of  one  (1)  represents  block  input.  Blank  cards  within  the 
deck  represents  the  end  of  the  input  of  data. 

Upon  reading  in  the  new  data  the  program  will  output  any  sections 
requested  with  the  references  in  alphabetical  order,  then  any  sections 
requested  with  the  references  in  chronological  order,  and  finally  any 
sections  requested  with  the  references  in  numerical  order. 

Various  possible  input  decks  are  illustrated  in  Table  2.  An  example 
block  input  and  the  resulting  output  is  in  Appendix  B. 
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TABLE 


Sections  are  referenced  by  four  digit  section  numbers  corresponding 
to  the  subtopic  numbers  seen  in  Table  1,  (i.e.,  4*1  becomes  4100,  3. 1.1.2 
becomes  3112). 

PROGRAM  LOGIC 

The  program  logic  can  best  be  illustrated  through  the  use  of  Figure 
4.  The  various  abbreviations  are  defined  below: 

A.  BIBLIO  -  The  title  of  the  source  program. 

B.  PREFS  -  The  permanent  file  containing  the  old  references. 

C.  INPUT  -  The  card  deck  containing  new  references  and  sections 

des ired . 

D.  RDFLE  -  The  subroutine  which  reads  PREFS  into  the  working  array. 

E.  READIN  -  The  subroutine  which  reads  in  sequential  data. 

F.  RDBLK  -  The  subroutine  which  reads  in  block  data. 

G.  BINDEX  -  The  subroutine  which  computes  the  index  corresponding  to 

the  sections  identified  on  the  data  sheets. 

H.  SORT  -  The  subroutine  which  sorts  the  working  array  into  alpha¬ 

betical  order  by  1st  author’s  last  name. 

I.  DUPS  -  Subroutine  which  checks  1st  author’s  last  name  and  year 

for  duplicates. 

J.  WRTOUT  -  The  subroutine  which  writes  out  a  reference  onto  output. 

K.  WRTFLE  -  The  subroutine  which  unites  out  a  copy  of  the  working 

array  onto  NEWREF. 

L.  NEWREF  -  An  alphabetical  file  containing  an  updated  version  of 

the  full  reference  list  (to  be  changed  to  PREFS,  by 
operator,  after  program  is  complete). 

M.  PRNT  -  The  subroutine  which  prints  out  all  the  references  identi¬ 

fied  for  any  one  section. 

N.  BINBAC  -  The  subroutine  which  back  calculates  the  sections  from 

the  index. 

O.  SORTYR  -  The  subroutine  which  arranges  the  working  array  in 

chronological  order. 

P.  SORTAC  -  The  subroutine  which  arranges  the  working  array  in 

numerical  order  by  access  number. 
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COMPUTER  SYSTEM  ENVIRONMENT 


HARDWARE 

The  hardware  configuration  of  DTNSRDC’s  CDC  6600/6700  is  as  follows: 
o  Dual  central  processors,  131,072  60-bit  word  memory  each, 
o  20  peripheral  processors  for  each  central  processor, 
o  Model  844  disk  drives, 
o  One  1700  terminal,  and 
o  Two  2530  data  concentrators 

SOFTWARE 


The  software  operating  system  installed  for  the  computer  is  the  CDC 
NOS/BE  v.  1.4  operating  system*  A  typical  control  deck  for  this  program 
is  as  follows: 

o  REQUEST , NEWREF , *PF . 
o  ATTACH , PREFS , ID=XXXX  * 
o  ATTACH , BIBLIO , ID-XXXX . 
o  FIN, I=BIBLIO, SL=0 , R=0 , PD=8 . 
o  LGO , PL=100000 . 
o  CATALOG , NEWREF , PREFS , ID=XXXX . 
o  PURGE , PREFS , PREFS , ID=XXXX . 

(XXXX  specifies  user’s  registered  computer  initials.) 

This  format  allows  for  the  Fortran  source  code  to  be  maintained  on  the 
computer  (BIBLIO)  as  well  as  the  permanent  reference  data  base  (PREFS) . 
Old  versions  of  PREFS  are  purged  as  soon  as  the  file  is  updated.  The 
sorting  of  the  data  base  is  done  by  the  source  program  and  the  data  base 
is  edited  interactively  using  the  available  on-line  editor  NETED  v.  1.4. 
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PROGRAM  BIBLIO  ( INPUT  ,  OUTPUT  ,  PREFS » NEWREF  >  TAF'E5  =  INF'UT  ,  TAPE6 
1  =  0UTPUT>TAF’E8  =  NEWREF>TAPE9=F'REFS) 

C 

C#* i****************************************************************** 

C 

C  THIS  PROGRAM  IS  DESIGNED  TO  TAKE  A  LARGE  AMOUNT  OF 

C  BIBLIOGRAPHIC  DAT  A  f  SORT  IT, CHECK  FOR  DUPLICATES  AND  BE  ABLE  TO 

C  OUTPUT  CERTAIN  CATEGORIES  OF  REFERENCES. 

C 

C****) **************************************************************** 

C 

COMMON  LIST  (1000, 17), INDEX  < 40 ) , I  TWOS ( 40 ) 

DO  2  I -  1  *  4 0 
N  =  I  - 1 

I  TWOS ( I ) =  2**N 
2  CONTINUE 
J  =  0 
C 

C 

C  READ  IN  PERMANENT  REFERENCE  FILE  (PREFS)  INTO  PROGRAM 
C  OPERATING  ARRAY. 

C 

C 

CALL  RDFLE  (J) 

READ  (5*1)  IFLAG 
1  FORMAT  (ID 
C 

C 

C  EVALUATE  FLAG  TO  SEE  WHAT  FORMAT  NEW  BIBLIOGRAPHIC  ENTRIES 
C  ARE  IN.  1  INDICATES  BLOCK  FORMAT  *  0  INDICATES  SEQUENTIAL 
C  FORMAT. 

C 

C 


IF 

(  IFLAG ♦ EG ♦ 0 ) 

CALL 

RE AD IN 

( J) 

IF 

(  IFL AG ♦ EQ ♦ 1 ) 

CALL 

RDBLK 

( J) 

DO 

C 

80  L6~ 1 r  3 

Q  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  j|^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  j||  j||r  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^ 

c 

C  PERFORM  ALPHABETICAL  SORT  IF  THIS  IS  THE  FIRST  TIME  IN  THE  LOOP 
C 

C******************************************************************** 

C 

IF  ( L6 . EQ . 1 ) CALL  SORT  (J) 

C 

C**************** ********************************************* ******* 

C 

C  PERFORM  CHRONOLOGICAL  SORT  IF  THIS  IS  THE  SECOND  TIME  IN  THE 
C  LOOP. 

C 

[;  **********************************************************  ********** 

C 

IF  (L6.EQ.2)  CALL  SORTYR  (J) 
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c 

C  PERFORM  NUMERICAL  SORT  BY  ACCESS  NUMBER  IF  THIS  IS  THE  THIRD 
C  TIME  IN  THE  LOOP, 

C 

*****************  **#*4 c  ***************************************  * 

C 

IF  (  L  6  *  E  Q  ♦  3  )  CALL  SORTAC  (J> 

CONTINUE 
DO  30  L= 1 » 50 
READ  (5*120)  I SECT 
C 

p  df  d  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  \X-  X  X  X  X  X  »L  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X 

c 

C  READ  IN  THE  SECTION  TO  BE  WRITTEN  OUT. 

C  IF  SECTION  IS  EQUAL  TO  00  60  TO  THE  TOP  OF  THE  LOOP  AND  PERFORM 
C  THE  NEXT  SORT  OR  FINISH  OUT  THE  PROGRAM  IF  THE  LAST  SORT 
C  PERFORMED  WAS  THE  NUMERICAL  SORT. 

C 

P  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  ■  L  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X 

^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  -7.  .7  T'  t1  ^  ^  t*  ^  x  j7  ^  *  T  *  T‘  t  ^  ■  r  T  •  r  *  T  ^  ^  ^  ^  T  T  T  ^  •*  T  *r  ^7  T  *  •*  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  *T  *  T  T* 

C 

120  FORMAT  (14) 

IF  (ISECT ♦ EG  *  0 )  60  TO  50 
CALL  PRNT  (ISECT, J) 

30  CONTINUE 
50  CONTINUE 

WRITE  (6,100) 

100  FORMAT  Cl", "FULL  REFERENCE  LIST",//) 

DO  40  K=1  ,  J 
C 

C ************ ******** ** ** **************** ****** ********************** 

c 

C  WRITE  OUT  THE  FULL  REFERENCE  LIST  TO  GIVE  A  LISTING  OF  ALL 
C  REFERENCE  AVAILABLE  IN  THE  ORDER  OF  THE  LATEST  SORT  * 

C 

C*********  *********************************************************** 

C 

CALL  URT OUT  (K) 

40  CONTINUE 
80  CONTINUE 
STOP 
END 
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SUBROUTINE  BINBAC  (I) 

C 

C******************************************************************** 

C 

THIS  SUBROUTINE  BRINGS  BACK  THE  SECTION  CODE  FROM  THE  INDEX 
CALCULATED  IN  SUBROUTINE  BINDEX 

C*:M***************************************************************** 

C 

COMMON  LIST  <1000,17),  INDEX < 40 ) , I  TWOS < 40 ) 

P=LIST  (1,17) 

DO  5  11=1,40 
INDEX  (I1)=0 
5  CONTINUE 
DO  15  K=  1 , 40 
L=41-K 

M  =  F‘-ITWOS(L ) 

IF  (M.LT.O)  GO  TO  25 
INDEX ( L ) =1 
F'  =  M 

25  CONTINUE 
15  CONTINUE 
RETURN 
END 
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SUBROUTINE  BINDEX  ( M ) 

C 

c  ******************************************************************** 

THIS  SUBROUTINE  CALCULATES  THE  INDEX  WHICH  DETERMINES  TO  WHICH 
OF  THE  40  CATEGORIES  THE  ENTRY  APPLIES 

C**************************************** ******************* ********* 
C 

COMMON  LIST  (1000*17),  INDEX  < 40 ) , I  TWOS ( 40 > 

I  ND  =  0 

DO  5  K  =  1 , 4  0 

IF  ( INDEX ( K ) . EQ . 1 )  I ND= I ND+ 1  TWOS ( K ) 

5  CONTINUE 

LIST  ( M » 1 7 )  =  I ND 

RETURN 

END 


SUBROUTINE  DUPS  (N) 


C******************************************************************** 

C 

C  THIS  SUBROUTINE  CHECKS  THE  REFERENCE  ARRAY  FOR  DUPLICATES 

C 

p  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  A  ^  4  4  4  4  4  ^  ^  4*  4f  X'  Jr  ^  ^  ^  ^  ^  ^  Jr  J*  Jr  ^  Jr  Jr  ^  ^  \X  *Xr  -X  ^  *ir  X  ^  ^  ^  *L  JU  X  X  JLr 

w  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ®  ®  ^  ®  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^p  ^  ^  ^  'p  ^  ^p  ^p  *  ^  ^  ^p  ^  ^  *^  ^  'p  ^  ^  ^  ^p  ^  ^p  /p  *  ^  ’p  ^ 

c 

COMMON  LIST  ( 1 OOO , 1 7 ) 1 1 NDEX ( 40 ) > I  TWOS (  » 0 ) 

WRITE  (6rl) 

1  FORMAT  Cl'f 'POTENTIAL  DUPLICATES  INCLUDE J *>// > 

1  =  0 

5  CONTINUE 

1  =  1  +  1 

DO  10  1 1  =  1 » N 
12=11+1 

IF  (LIST(I?2).NE.LIST(I2»2))  GO  TO  20 
10  CONTINUE 
20  CONTINUE 
13  =  12-2 

IF  (I.GE.N)  RETURN 
IF  ( I .GT .  13  )  GO  TO  15 
DO  30  14=1 » 13 
15=14+1 

IF  (LIST  ( I > 16) .NE.LIST ( 15, 16)  )  GO  TO  25 
CALL  URTOUT  (I) 

CALL  WRTOUT  (13) 

25  CONTINUE 
30  CONTINUE 
1  =  1  +  1 

IF  (I.GE.I3)  GO  TO  15 
GO  TO  20 
15  1=13 
1  =  1  +  1 
GO  TO  5 
END 
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SUBROUTINE  PRNT  (IN*N) 

C 

C *****************************************************************$%^ 

THIS  SUBROUTINE  WILL  DETERMINE  WHICH  OF  THE  SECTIONS  ARE 
DESIRED  AND  CONVERT  THE  SECTION  NUMBER  INTO  A  FORM  UNDERSTOOD 
BY  THE  INDEX  CALCULATION  TO  DETERMINE  THE  NEEDED  REFERENCES 

C************** ****************************************************** 

c 

COMMON  LIST  ( 1 OOO *  17 ) , INDEX ( 40 > » ITUOS ( 40 > 

IF  (IN. EQ. 1000)  GO  TO  10 
IF  (IN. EO. 1100)  GO  TO  20 
IF  (IN. EQ. 2000)  GO  TO  30 
IF  (IN. EQ. 2100)  GO  TO  40 
IF  (IN. EQ. 2110)  GO  TO  50 
IF  (IN.EQ.2200)  GO  TO  60 
IF  (IN. EQ. 2210)  GO  TO  70 
IF  (IN. EQ. 2220)  GO  TO  80 
IF  (IN. EQ. 2230)  GO  TO  90 
IF  (IN. EQ. 3000)  GO  TO  100 
IF  (IN. EQ. 3100)  GO  TO  110 
IF  (IN. EQ. 3110)  GO  TO  120 
IF  ( IN. EQ. 3111 )  GO  TO  130 
IF  (IN. EQ. 3112)  GO  TO  140 
IF  (IN. EQ. 3113)  GO  TO  150 
IF  (IN. EQ. 3114)  GO  TO  160 
IF  (IN. EQ. 3115)  GO  TO  170 
IF  (IN. EQ. 3200)  GO  TO  180 
IF  (IN. EQ. 3210)  GO  TO  190 
IF  (IN. EQ. 4000)  GO  TO  200 
IF  (IN. EQ. 4100)  GO  TO  210 
IF  (IN. EQ. 4110)  GO  TO  220 
IF  (IN. EQ. 4111)  GO  TO  2.30 
IF  (IN. EQ. 4112)  GO  TO  240 
IF  (IN. EQ. 4120)  GO  TO  250 
IF  (IN. EQ. 4130)  GO  TO  260 
IF  (IN. EQ. 4131)  GO  TO  270 
IF  (IN. EQ. 4132)  GO  TO  280 
IF  (IN. EQ. 4140)  GO  TO  290 
IF  (IN. EQ. 4200)  DO  TO  300 
IF  (IN. EQ. 4300)  GO  TO  310 
IF  (IN. EQ. 4400)  GO  TO  320 
IF  (IN. EQ. 4500)  DO  TO  330 
IF  (IN. EQ. 4600)  DO  TO  340 
IF  (IN. EQ. 4700)  GO  TO  350 
IF  (IN. EQ. 4800)  GO  TO  360 
IF  (IN. EQ. 4900)  GO  TO  370 
IF  (IN. EQ. 5000)  GO  TO  380 
IF  (IN. EQ. 5100)  GO  TO  390 
IF  (IN. EQ. 5200)  GO  TO  400 
WRITE  (6*1)  IN 

1  FORMAT  C 1 *» 'SECTION  **I4**  IS  NON-EXISTENT*  CHECK  OUTLINE*) 
RETURN 
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10  WRITE  (6, 2) 

2  FORMAT  ( *1* , *  INTRODUCTION  (DEFINITION  OF  MARINE  FOULING)  SECTION 
1  REFERENCES-,//) 

1  =  1 

GO  TO  6000 
20  WRITE  (6,3) 

3  FORMAT  (  *  1 -  • DESIGN  INTEGRATED  FOULING  CNTRL  SYSTS  REFERENCES 8 , // 

1=2 

GO  TO  6000 
30  WRITE  (6,4) 

4  FORMAT  (  "  1  *  , * E VAL  OF  EFFICACY  SECTION  REFERENCES-,//) 

1  =  3 

GO  TO  6000 
40  WRITE  (6,5) 

5  FORMAT  (‘l'f-IN  SITU  TESTING  SECTION  REFERENCES-,//) 

1  =  4 

GO  TO  6000 
50  WRITE  (6,6) 

6  FORMAT  (  •  1 1  , "RAFT  TESTS  SECTION  REFERENCES-,//) 

1=5 

GO  TO  6000 
60  WRITE  (6,7) 

7  FORMAT  (  -  1  -  , - ACCELERATED  TESTS  SECTION  REFERENCES-,//) 

1  =  6 

GO  TO  6000 
70  WRITE  (6,3) 

8  FORMAT  C  1  - , - DYNAMIC  SECTION  REFERENCES-,//) 

1  =  7 

GO  TO  6000 
80  WRITE  (6,9) 

9  FORMAT  ( - 1 - , -BIOASSAY  SECTION  REFERENCES-,//) 

1=8 

GO  TO  6000 
90  WRITE  (6,11) 

11  FORMAT  ( - 1 - - LEACHING  RATE  SECTION  REFERENCES-,//) 

1  =  9 

GO  TO  6000 
100  WRITE  (6,12) 

12  FORMAT  ( - 1 - , - CHEM  CONTROL  TECHNOLOGY  SECTION  REFERENCES-,//) 

1  =  10 

GO  TO  6000 
110  WRITE  (6,13) 

13  FORMAT  (-1-, 'TOXIC  CNTRL  AGENTS  SECTION  REFERENCES-,//) 

1  =  11 

GO  TO  6000 
120  WRITE  (6,14) 

14  FORMAT  ( - 1 - , 'DELIVERY  SYSTEMS  SECTION  REFERENCES ' , // ) 

1  =  12 

GO  TO  6000 
130  WRITE  (6,15) 

15  FORMAT  (' 1 - , 'COATINGS  SECTION  REFERENCES-,//) 

1  =  13 

GO  TO  6000 
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140  WRITE  (6*16) 

16  FORMAT ( *1*  , ‘ELASTOMERS  SECTION  REFERENCES*,//) 

1  =  14 

GO  TO  6000 
150  WRITE  (6,17) 

17  FORMAT  C 1 '* ‘DIRECT  INJECTION  SECTION  REFERENCES ’*// ) 

1  =  15 

GO  TO  6000 
160  WRITE  (6*18) 

18  FORMAT  C 1 ’ , *  IMPREGNATION  (WOOD)  SECTION  REFERENCES’*//) 

1  =  16 

GO  TO  6000 
170  WRITE  (6*19) 

19  FORMAT  C 1 ’* ’STRUCTURAL  INCORPORATION  SECTION  REFERENCES’*// 
1  =  17 

GO  TO  6000 
180  WRITE  <6*21 ) 

21  FORMAT  (’ 1 ’* ’NON-TOXIC  CONTROL  AGENTS  SECTION  REFERENCES’*// 
1  =  18 

GO  TO  6000 
190  WRITE  (6*22) 

22  FORMAT  (’ 1 ’*’ DELIVERY  SYSTEMS  SECTION  REFERENCES’*//) 

1  =  19 

GO  TO  6000 
200  WRITE  (6*23) 

23  FORMAT  (’ 1 ’, ’PHYSICAL  CONTROL  TECHNOLOGY  SECTION  REFS’*//) 

1  =  20 

GO  TO  6000 
210  WRITE  (6*24) 

24  FORMAT  C1’*’MECH  METHODS  OF  CNTRL  SECTION  REFERENCES’*//) 
1=21 

GO  TO  6000 
220  WRITE  (6*25) 

25  FORMAT  <’ 1 ’SCRUBBING  SECTION  REFERENCES’*//) 

1  =  22 

GO  TO  6000 
230  WRITE  (6*26) 

26  FORMAT  <’ 1 ’, ’EXTERIOR  SECTION  REFERENCES’*//) 

1=23 

GO  TO  6000 
240  WRITE  (6*27) 

27  FORMAT  <’ 1 ’*’ INTERIOR  SECTION  REFERENCES’*//) 

1  =  24 

GO  TO  6000 
250  WRITE  (6*28) 

28  FORMAT  Cl’, ’JETS  SECTION  REFERENCES’,//) 

1=25 

GO  TO  6000 
260  WRITE  (6*29) 

29  FORMAT  <’1’*’S0NICS  SECTION  REFERENCES’*//) 

1=26 

GO  TO  6000 
270  WRITE  (6* 31) 

31  FORMAT  C 1’ , ’ULTRASONICS  SECTION  REFERENCES’*//) 

1=27 

GO  TO  6000 
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280  WRITE  (6,32) 

32  FORMAT  ( 1 1  *  *  1 INFRASONICS  SECTION  REFERENCES*,//) 

1  =  28 

GO  TO  6000 
290  WRITE  (6,33) 

33  FORMAT  (*1*,*L0U  SURFACE  ENRGY  SECTION  REFERENCES*,//) 
1=29 

GO  TO  6000 
300  WRITE  (6,34) 

34  FORMAT  (  *  1  *  ,  ’  ELECTR I  CAL  METHODS  SECTION  REFERENCES*,//) 

1  =  30 

GO  TG  6000 
310  WRITE  (6,35) 

35  FORMAT  (* 1 *,* MAGNETIC  METHODS  SECTION  REFERENCES*,//) 

1  =  31 

GO  TO  6000 
320  WRITE  (6,36) 

36  FORMAT  ( *  1  * , *  OPT  I  CAL  METHODS  SECTION  REFERENCES*,//) 

1  =  32 

G0  TO  6000 
330  WRITE  (6,37) 

37  FORMAT  C 1 *,* NUCLEAR  METHODS  SECTION  REFERENCES*,//) 

1  =  33 

GO  TO  6000 
340  WRITE  (6,38) 

38  FORMAT  C 1 *,* THERMAL  METHODS  SECTION  REFERENCES*,//) 

1=34 

GO  TO  6000 
350  WRITE  (6,39) 

39  FORMAT  C 1 *,* OSMOTIC  METHODS  SECTION  REFERENCES*,//) 

1  =  35 

GO  TO  6000  * 

360  WRITE  (6,41) 

41  FORMAT  ( *1* , ’SURFACE  MOD  METHODS  SECTION  REFERENCES*,//) 
1  =  36 

GO  TO  6000 
370  WRITE  (6,42) 

42  FORMAT  ( *  1  *  ,  ‘EXPLOSIVE  REMOVAL  SECTION  REFERENCES*,//) 

1  =  37 

GO  TO  6000 
380  WRITE  (6,43) 

43  FORMAT  C 1 *,* CONCLUSIONS  SECTIONS  REFERENCES*,//) 

1  =  38 

GO  TO  6000 
390  WRITE  (6,44) 

44  FORMAT  C 1 *,* PRESENT  PRACTICE  SECTION  REFERENCES*,//) 

1  =  39 

GO  TO  6000 
400  WRITE  (6,45) 

45  FORMAT  Cl*, ‘FUTURE  DIRECTIONS  SECTION  REFERENCES*,//) 

1  =  40 

6000  CONTINUE 
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WRITE  (6*6911) 

6911  FORMAT  ( IX* 'ACCESS  FIRST1  t 1  OX  9  "SECOND1  *  S  X  * ■THIRD1  *  9  X  * “TITLE1 
136X,  "PUBLISHER1 * 25  X,  1  YEAR1  ) 

WRITE  (6*6912) 

6912  FORMAT  (1X»  "HUMBER  AUTHOR  V 9X *  1  AUTHOR  1 * BX * 1  AUTHOR  1 * /// ) 

DO  7000  11=1 f N 

CALL  BINBAC  (ID 

IF  ( INDEX (  I )  ♦  EG ♦ 0 )  GO  TO  6999 

CALL  WRTOUT  (ID 

6999  CONTINUE 

7000  CONTINUE 
WRITE  (6*7001) 

7001  FORMAT  (////) 

RETURN 

END 
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SUBROUTINE  RDPLK  (J) 

C 

c*********  ***************  Xtt**t%t%*%***%%%*%%%%**%t*%*****ttt*t***%** 

c 

C  THIS  SUBROUTINE  WILL  READ  IN  THE  DATA  IN  BLOCKS  OF  30  CARDS 

C 

c 

COMMON  LIST  ( 1 000 » 1 7 ) * I NDEX ( 40 ) * I TWOS ( 40 ) 

DO  10  1=1*500 
N==0 

DO  20  11=1*30 
J  =  J  +  1 

READ  <5» 100) (LIST ( J*  J1 ) * J 1  =  1 >  11 ) 

100  FORMAT  < 16* A10* A2* A10* A2*A10> A2*3A10* A8) 

IF  (LIST  <  J  *  1  ) ♦ EQ ♦ 0 )  GO  TO  25 
N  =  Nf  1 

20  CONTINUE 
25  CONTINUE 
I8=J-Nf 1 

K  3  =  J 

IF  (N.LT.30)  18=18-1 
IF  (N.LT.30)  K3-K341 
DO  30  1 2= 1 8  *  K3 

READ  (5* 1 10) (LIST <12* J2) * J2=12* 16) 

110  FORMAT  (3A10*A6* 12) 

30  CONTINUE 

DO  40  1 3= 1 8  *  K3 

READ  (5* 120) ( INDEX (K5) *K5=1 *40) 

120  FORMAT  (4012) 

CALL  BINDEX  (13) 

40  CONTINUE 

IF  (N.LT.30)  GO  TO  15 
10  CONTINUE 
15  J  =  J-1 
RETURN 
END 


26 


■'fc  f 


noon 


SUBROUTINE  RDFL.E  (J) 

C 

C ##**##*#*#*#**##*##*#*#****##*#*******##*#####*##**#*****#********** 

THIS  SUBROUTINE  READS  A  FILE  CALLED  REFS  INTO  THE 
PROGRAM  OPERATING  ARRAY 

Cttt*tt**t**t***t**%t*t%*%t*****tt%**** #**#*****#*# *»*#*#*#»*#**» **#* 

c 

COMMON  LIST  ( 1 000  *  1 7 ) , INDEX  < 40 ) * ITWOS ( 40 ) 

DO  5  1=1*1000 

READ  (9*100) (LIST  ( I  * K ) * K  =  1  *  17 ) 

100  FORMAT  (I£*A10*A2*A10*A2*A10*A2*3A10*A8»3A10*A6*I2*I13> 

IF  ( LIST ( I  *  1 ) »EQ « 0 )  RETURN 
J=J+1 

5  CONTINUE 
END 
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non 


SUBROUTINE  READIN  <J> 

C 

THIS  SUBROUTINE  READS  IN  EACH  OF  THE  BIBLIOGRAPHIC  ENTRIES 

C******************************************************************** 

C 

COMMON  LIST  ( 1 OOO , 17 ) , I NDEX  ( 40 ) , I  TWOS ( 40 ) 

K 1 = J+ 1 

DO  10  I=K1 » 1000 

READ  (Sf  lOOXLISKXf  Jl)  >J1>1»16) 

100  FORMAT  (I6»A10»A2»A10»A2»A10»A2»3A10»A8»/»3A10»A6*I2) 

READ  (5*110)  ( INDEX  <K  > *  K  =  1 *  40 ) 

110  FORMAT  (4012) 

IF  (LISKXf  1).EQ.0>  RETURN 
J=J  +  1 

CALL  BINDEX  (I) 

10  CONTINUE 
END 


i 

i 


n  n  n  n 


SUBROUTINE  SORT  <N) 


C #***#####*#*#******#####** ***#;M***## *##**##*##***#*#**#**##**##*### 

THIS  SUBROUTINE  SORTS  THE  ENTRIES  INTO  ALPHEBETICAL  ORDER  AND 
CHECKS  FOR  DUPLICATES 

C****H^*****************************************************:M*r***** 

C 

COMMON  LIST  ( 1 OOO f 1 7 ) f  I NDEX  <  40  )  f I  TWOS ( 40 ) 

M 1  =  N 
25  12  =  0 
M 1  =M  1  - 1 
DO  5  1=1 r Ml 
1 1 =L I  ST  ( I »  2 ) 

J  =  I  +  1 

1 3  =  L I  ST  ( J f  2 ) 

IF  (13-11)  1 0  f  20  f  20 
10  DO  15  K  = 1 f 1 7 
M=LIST(IfK) 

LIST  (IfK)=LIST(JfK) 

LIST  (JfK)=M 
15  CONTINUE 
20IG@B2*iUE 
5  CONTINUE 

IF  (I2.GT.0)  GO  TO  25 
QALL  DUPS  (N) 

CALL  URTFLE  (N) 

RETURN 

END 
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noon 


SUBROUTINE  SORTAC  (N> 


C **#********#*#####*#**#####*###*****#**##*##*###***#####*#*######### 

THIS  SUBROUTINE  SORTS  THE  REFERENCES  BY 
ACCESS  NUMBER 

C***»****»#  #***#*#**#*#****####*#*#*##*#  ###*#*  Jin)!****#*******##******* 

C 

COMMON  LIST  (1 OOO r 1 7 ) 1 I NDEX ( 40 ) > I  TWOS ( 40 ) 

M 1  =N 
25  12=0 
M1=M1-1 
DO  5  1=1  *  Ml 
I1*LIST< I f1) 

J  =  I  +  1 

I3=LIST< JfI ) 

IF  < 1 3- 1 1 )  1 0  f  20  f  20 
10  DO  15  K=1 ? 1 7 
M=L 1ST  (IfK) 

LIST  (IfK)=LIST( JfK) 

LIST  (JfK)=M 
15  CONTINUE 
12=12+1 
20  CONTINUE 
5  CONTINUE 

IF  (I2.GT.0)  GO  TO  25 
RETURN 


non 


SUBROUTINE  SORTYR  (N) 

C 

C***************** *********************** ****** ******* *************** 
THIS  SUBROUTINE  SORTS  THE  REFERENCES  BY  YEAR 

C** ******************************************** ********************** 

C 

COMMON  LIST  ( 1000 t 1 7 ) t I NDEX  ( 40 ) » I T WOS ( 40 ) 

M1  =  N 
25  12=0 
M1=M1-1 
DO  5  1  =  1 >  Ml 
1 1 =L I  ST  ( I > 16 ) 

J  =  I  +  1 

I3  =  LIST  ( J  » 1 6 ) 

IF  (13-11)  1 0  ?  2  0 »  2  0 
10  DO  15  K= 1 » 1 7 
M=LIST  < I »K ) 

LIST  ( I »  K  )  =L I  ST  (J.K) 

LIST  <J,K)=M 
15  CONTINUE 
12=121 1 
20  CONTINUE 
5  CONTINUE 

IF  (I2.GT.0)  GO  TO  25 

RETURN 

END 
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noon 


SUBROUTINE  WRTOUT  (ID 
C 

THIS  SUBROUTINE  WRITES  OUT  ANY  REFERENCE  ON  THE  OUTPUT 
DEVICE. 

C 

COMMON  LIST  <1000>17>>  INDEX  (  40  )  >  I  TWOS  (  40  ) 

WRITE  (A. 6998)  ( L 1ST < 1 1 r L  >  r L  =  1 r 1 6 ) 

6998  FORMAT  <  * 0 ’ > 15 » IX » A10*  *  » *  » A2 >  * i *  » IX » A10 >  *  * ' » A2 *  *  >  *  » IX » A10 » 
1*  »  •  »A2D  f  '  1 1X»3A10»A8»3X»3A10»A6»2X»  12) 

RETURN 

END 
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n  n  n  n 


SUBROUTINE  WRTFLE  (N) 

C 

THIS  SUBROUTINE  WRITES  OUT  THE  REFERENCES  IN  ALPHABETICAL 
ORDER  ONTO  A  PERMANENT  FILE 

C 

COMMON  LIST  ( 1 OOO » 1 7 ) » INDEX < 40 ) t I TWOS ( 40 ) 

N1 =N+ 1 
DO  5  I=1.N1 

WRITE  (8.100)  (LIST  < I t J) » J*1 , 1 7 > 

100  FORMAT  < I6.A10.A2.A10.A2.A10.A2.3A10. AS.3A10.A6. 12. 113) 

5  CONTINUE 
RETURN 
END 
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*r«*M*.*» 


APPENDIX  B 


SAMPLE  INPUT  AND  OUTPUT 


35 


ffVBCfiftNQ  PAGE  BUNK-NOT  flUffiO 


1 


BLOCK  OF  30 
CARO  #1 


BLOCK  OF  30 
CARD  #2 


r 


K 

r 


631L0RENZ  J 
6320LDF IELD  D  SANSOM 
633B0CKSTEIN*G  GLEW 
634PH ILL  IP  AT 
6350UNN  P  SANSOM 

6360CHILTREE  BC 
637BEITEP  CBHAFNER 
638DE  FORST  A  PETTIS 
639RIDEN0UR  GMINGOLS 
640PORTER  G 


64 1  DEXTER  SCSULL IVAN 

642CRISP  OJ 

643GERENCSER  VFBARNOTHY 
644MITCHELL  R 
645CHA0WICK  WLCLARK 


ANTIFOULING  MEASURES  ON  SHIPS-A  GENER* 
POTENTIAL  ANTIFOULING  COATINGS  FOR  TI* 
ATUNDERWATER  MARINE  CAT  I NGS-EL  I M INAT  I0f»* 
UNDERWATER  MARINE  COATINGS-  PART  I- 
COATED  TIMBER  FOR  UNDERWATER  APPLICAT* 
ANTIFOULING  ELASTOMERIC  COMPOSITIONS 
AQUEOUS  ANTIFOULING  COATING  COMPOSITE 
ATUNDERWATER  MARINE  C0AT1NGS-A  DETAILED* 
PSARMBRUSTEREMSPORICIOAL  properties  OF  CHLORINE  DIO* 
END  OF  THE  FREE  RIDE 

INFLUENCE  OF  SUBSTRATE  WETTABILITY  ON* 
STUDIES  OF  BARNACLE  HATCHING  SUBSTANCE 
JMINHIB1TI0N  OF  CACTERIAL  GROWTH  BY  mag* 
BIOLOGICAL  REPELLENTS ; A  NEW  APPROACH  * 
DLTHERMAL  CONTROL  OF  MARINE  FOULING  AT  * 


GF 

G  PHILLIP 

GF 

LA 

RWPHILL IP 


JD* 


mfbarnothy 


FSFOX 


646WH I TE 

HE 

647TULLIS 

DHNEILL 

LCHENDERSON 

648 YE  AGE  R 

WLCASTELLI 

VJ 

649ADERSEN 

DM 

650EKAMA 

HC VAN  londenamde 

WOLF 

65 1  ARNOLD 

MHCLARKE 

HJ 

652ANON 

653CHET 

I  MITCHELL 

R 

654CLARKE 

GL 

655C0RNER 

EDSPARROW 

656 ANON 

657  ANON 

658 ANON 

659F ISK 

NR 

660FLFMING 

H 

AD‘-80 32  858 

78 

AD-918  043 

73 

AD-B006  675 

74 

AD-907  612 

72 

AD-90?  136 

72 

AO-911  382 

72 

US  PATENT*  4.052 

.354 

77 

AD-922  986 

74 

CONTROL  OF  MARINE  FOULING  IN  SEA-wAU* 

atcontrol  of  marine  organisms  IN  A  salt* 
ANTIFOULING  APPLICATIONS  OF  VARIOUS  T* 
ROGANOT 1 N  PRESERVATIVES  FOR  WOOD  STRU* 
P  RESULTS  OF  AN  INQUIRY  INTO  THE  C0ND1J* 
PROJECT  BIULTRASONIC  ANTIFOULING  SHIP* 
PROGRESS  REPORT  ON  THE  TECHNlTlUM  PRO* 
THE  RELATIONSHIP  BETWEEN  CHEMICAL  STw* 
POISONING  AND  RECOVERY  IN  BARNACLES  A* 
THE  MODES  OF  ACTION  OF  TOXIC  AGENTS-1* 
THE  1 TOX I  ON  *  SYSTEM-A  NEW  ANTIFOULING  * 
REOUCING  THE  BARNACLE  BILL 
SHIPS*  HULL  PROTECTED- ULTRA SO NIC  V  IBP* 
A  VIEW  OF  ANTIFOULING 

EFFECT  OF  HIGH  FREQUENCY  FIELDS  ON  Ml* 


WATER  SEWAGE  WORKS  * V96 .N8 *P279-83 . A*79 
NRS  DIMENSIONS i V04  .N2. PI 2-7* 1980  80 
APP  M I CROR 10L.V30.N2.P298-308.  AUG  1975 
COMP  BIOCHEM  PHYSIOL  .  V  JO  .N6.P i 0  37-4*69 


NATURE  «V196*N485 .P5 39-4  I .NOV  10  t  196262 
NAVSEA  JOUR .  62-6. JULY  1976  76 

J  TRANS  ASM£f V72.P127-31 .FEB  1950  50 

TRANS  ASME.V22.P117-26.FEB  1950  50 

J  INST  PET.V45.N426.P155-67. JUN  195959 
QPGANOMET  ALL  I C  POLYMERS. ED  CE  CARRA*77 
DTNSRDC  REPORT  n  SME-78/4 1 . JUN  1979  79 
TNO  REPORT  47C.  1962 

TECHNICAL  MINUTE  *93  52 

UNIV  OF  VIRGINIA  ALUM  PATENTS  FOUND*79 
CAN. J  MICROBIOL .V22.P l 206-08 .N8. 197676 
BIOLOGICAL  BlJLLtV9?.P7  3-9l  .  194  7  47 

J  MAR  BIOL  ASS  UK . V35 ♦ PS 3 1 -48.1 956  56 

COPR  PREV  &  C0NT.P49-54. MARCH  1960  60 

CHEM  WEEK, V72.N9. 87-91 ,FEB  28.1953  53 

ENGINEERING. Vi  80. P4 16. SFPT  23.1955  55 

PAINT  TFCH.V2^.N270.P15-18.MAY  1960  60 
V  ELEC  ENG . P 18-21 . JAN  1944  44 
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1 


i  1  1  1  1  1 


} 

2 


1 

1 


BLOCK  OF  30 
CARD  13 


< 


1 


SECTION 

DECK 


V. 

(blank  card) 
(blank  card) 
(blank  card) 
(blank  card) 
(blank  card) 
3112 
4110 
J  4in 

(blank  cord) 
(blank  card) 
^(  blank  card) 


1111  l 
1111  1 

1111 
1  1  1  1  i 
111  1 

111  1 

1111 
111  1 

111  1 

1111 

1 

I 

111  1 

111  1 

1111 
111  1 


1 

1 

1 

1 

1 

1 


1 

1  1  1 
1  1  1 
1  1  1 
1111 

1111 


1 

1 


1  1 


1 

1 


sample:  input 


OUTPUT  FOR  PRECEDING  INPUT 

1.  POTENTIAL  DUPLICATES  (NOT  INCLUDED) 

2.  ALPHABETIC  SECTIONS  REQUESTED  (INCLUDED) 

3.  FULL  ALPHABETIC  REFERENCE  LIST  (NOT  INCLUDED 
OVER  500  LINES  OF  OUTPUT) 

A.  FULL  CHRONOLOGICAL  REFERENCE  LIST 
(NOT  INCLUDED) 

5.  FULL  NUMFRICAL  REFERENCE  LIST 
(NOT  INCLUDED) 


M  W  M  M  M  A  H*  W  U  W 

c_n  cnjc/i  ui  co  nj 

ooocomci^^*  "-J  corocn^oro 

e?  cd  g  cj  m 
i>c3?3?o?:>-<o  •— «  m  m  m  z>  3> 
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oi>*:3C3:2rc->r-  3*  “no  »  — i  — < 
??35o)cn5-mxtn  o  55  mrn 

— t  — 12  »m- 1  so  co  r—r- 

mm  33  rn  co  — *  r“i— 


a?  zc 

*— i  o  ►— « 

co  r— 


=c  33  — « 
CO  tD  -H 
O  J>  3 
m  3?  m 

m  33 


»  r  »  h  h 
z  m  to  — <  — 4 

W  35  »~t 

T>  I —  CO  CO 


3>ui  a: 

cn  m 
-nn  m 
rnco  co 


Dt  33  m  m 
I>  C  O  D 
7>  !►  C  C 


— i  m  co  o  •— • 

10  0^3 
ft1  3J  77  C)  T 
33  33  i>  to 


TJ  CD  CD  CD  — 4 

33  m  m  r~ 
r  o  o  n 

*-<  C  c  rx  x> 
n  r  r  m  h 
3>  • — *  *“*  »  X 
— i  z  3:  co  cd 

M  CT  Q  it? 


X  X  o  o 


M  m  O  3  H 

•n  □>  as  cd  •— < 

CD  — «  I  O 


C_  “O  3> 
O  ^7  ^ 
O  O  I 

33  m  -o 


3>  DC  “O  C=  -X.  ZSL 

CO  O  PD  co  3>  3> 

CO  CD  CD  C  <X 

-  -  r-5  3:  x>  i> 

t?  “o  3>r~r~ 

*— •  3>  -t*  <Z 


3?  — ♦ 

CD 

r— ’  o  3X 

-<  CD  — ♦ 
zx  x> 
m  — i  co 


CD  50  (_ 
m  co 
33  m  «x 
*c  x>  co 
3>  ro 
—i  m 


^  r»  3K 
35  3> 

m  *— *>  to 

3?  «0 
3D  CO  CD 
•  O  C D 
Z  »  53 

-H  33 


CO  CO 
O  77  H 
3D  t3 
p  n  3> 


CD  33  m 
cd  — i  ro 
I> 

— I  4+  W 
SJ  *— * 
CO  'O  CD 

o  ^  m 

"S8 


^-J  *-*  CD 
■0*0  0 
T  vj  7^ 
*-*•  -O  33 
cn  - 
ro  co  co 
r-D  -c 


SCRUBBING  SECTION  REFERENCES 


A* 


APPENDIX  C 


AUXILIARY  PROGRAMS 


PRECEDING  PAGE  BUNK-MOT  FILMED 
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Several  auxiliary  programs  proved  helpful  in  editing  the  references 
file  (PREFS) •  Most  editing  was  performed  by  the  use  of  the  on-line  editor, 
NETED,  v.  1.4,  maintained  on  the  DTNSRDC  computer  system.  In  the  event  an 
entry  was  duplicated,  the  duplicate  was  deleted  through  the  use  of  the 
editor.  Since  there  were  several  individuals  submitting  data  to  this  bib¬ 
liography,  it  was  desired  that  all  sections  marked  by  each  author  be  com¬ 
bined  into  the  calculated  index  on  the  remaining  entry.  A  method  was 
required  to  do  this  calculation. 

Program  NEWIND  will  combine  two  indices  and  give  a  new  index,  to  be 
inserted  into  the  reference  file,  which  will  cover  all  sections  marked  by 
both  authors. 

Program  INDICES  will  back  calculate  and  give  a  listing  of  all  sections 
in  a  single  index  or  a  group  of  indices.  This  was  useful  in  comparing 
what  sections  were  marked  for  the  same  article  by  two  different  authors. 

For  41  duplicates  with  a  total  of  278  sections  marked,  41%  of  the  sections 
were  marked  by  both  authors.  This  shows  a  definite  advantage  to  examining 
references  on  more  than  one  occasion. 

Additionally,  two  programs  were  written  to  help  in  formatting  the 
bibliographic  entries.  Program  WRITE  will  write  out  the  permanent 
reference  file  (maintained  in  alphabetic  order)  in  an  expanded  format  to 
allow  for  completion  of  the  final  bibliography.  It  also  numbers  the 
entries  so  that  a  record  of  the  size  of  the  bibliography  is  maintained. 
Program  LIST  will  numerically  sort  the  references  and  give  the  list  out 
in  appropriate  format  for  the  citations  to  be  placed  in  the  text  of  the 
article  or  book  (i.e,,  Jones,  1966). 

Program  SECCOR  is  used  as  an  interactive  editor  to  correct  the  sections 
a  reference  is  found  in.  By  connecting  the  files  INPUT,  OUTPUT,  atid  TTY 
to  a  terminal,  corrections  are  easily  made  with  interactive  prompts.  The 
program  will  ask  for  the  access  number  and  then  give  the  author  and 
section  index  for  that  access  number.  The  program  will  then  ask  for  a 
section  number  and  if  the  section  is  to  be  inserted  or  deleted.  It  is  not 
necessary  to  know  the  status  of  the  section  in  the  original  index,  the 
program  will  check  that  status.  It  will  continue  to  ask  for  sections 
until  the  number  "0##  is  typed  in,  at  that  point  it  will  ask  for  a  new 
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access  number.  A  response  of  ,,0U  to  the  access  number  will  stop  the 
program.  A  new  file  of  the  references,  with  the  corrected  section  index 
numbers,  will  be  created  under  file  name  NEWREF.  This  file  must  then  be 
cataloged  under  the  permanent  reference  file  name  PREFS.  This  program 
requires  that  the  permanent  reference  file  be  maintained  under  file  name 
PREFS . 
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PROGRAM  NEWIND  ( I NPUT  ,  OUTPUT  »  TAPE5=  I NPUT  r  TAPE6=0UTPUT  ) 

C 

C ***#****#*#*******#*####*##*#*****#*#*#****#*##***#######***###*#*#***** 

c 

C  THIS  PROGRAM  WILL  COMBINE  TWO  INDICES  AND  GIVE  A  NEW  INDEX. 

C  IT  IS  ESSENTIALLY  DOING  A  LOGICAL  AND  ON  TWO  40  BIT  WORDS. 

C 

C ********###*#*##*####*##*****#********##***##*#*#****##******#***# ****** 

C 

1  READ  ( 5 » 100 )  I ND1 
IF  (IND1.EQ.0)  STOP 
READ  ( 5 » 100 )  IND2 
100  FORMAT  (113) 

P=IND1 
P1=IND2 
IND  =  0 
C 

C********:M**#*!M**#***************)M************#***######  *###**##  ##**#* 

C 

C  CHECK  IF  THE  BIT  IS  SET  ON  EITHER  WORD  AND  SET  THE  NEW  BIT  IF  THIS 
C  CONDITION  IS  MET. 

C 

C:M***#***» ******************** ft#***##*#****# ********* **** *** ****** ****** 

C 

DO  15  K=1 >40 
L=40-K 
M=P-2**L 
M1=P1-2**L 

IF  (M.GE.0.0R.M1.GE.0)  IND=IND+2**L 
IF  (M.GE.O)  P=M 
IF  (Ml.GE.O)  P1=M1 
15  CONTINUE 
C 

C*****t*tt*****t***t****t**tt*tt***t%*t*%tn*%tt****t**tt**t******t****t**t 

c 

C  PRINT  OUT  THE  OLD  INDICES  AND  THE  NEW  COMBINED  INDEX. 

C 

c  **********t******************t***t*****t*******%***%*inn*M%**t***t***** 
c 

WRITE  ( 6 » 1 1 0 )  IND1 > IND2 » IND 

110  FORMAT  ( *  0 1 »  *  THE  OLD  INDICES  WERE  '»  I13»*  AND  ■ » 1 13 » 6X , *  THE  NEW  * 

A » ' COMB  I  NED  INDEX  IS  '»I13) 

GO  TO  1 
END 
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INPUT 


i 


2679158034? 

469108736 

16891348565 

468703594 


0000 

0000 


OUTPUT 


THE  OLD  INDICES  WERE  26791580349  AND  469108736  THE  NEU  COMBINED  INDEX  IS 

THE  OLD  INDICES  WERE  16891348565  AND  468703594  THE  NEW  COMBINED  INDEX  IS 


NEWIND  INPUT  AND  OUTPUT 


i 
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26842962621 

17178812287 


PROGRAM  INDICES  (INPUT » OUTPUT  t T  APES = INPUT  >  TAPE6=0UTPUT ) 

C 

C************** *********************************** ************** 

c 

C  THIS  PROGRAM  GIVES  THE  SECTION  NUMBERS  RELATED  TO  ANY  INPUT 

C  INDEX ♦  THE  APPLICABLE  SECTION  NUMBERS  ARE  DESIGNATED  BY  A  *  1  * 

C  THE  INDEX  NUMBERS  WHICH  ARE  DESIRED  TO  BE  BACK  CALCULATED  SHOULD 

C  BE  INPUT  ON  CONSECUTIVE  CARDS  FOLLOWED  BY  A  BLANK  CARD 

C  THE  PROGRAM  ACCEPTS  THE  DATA  IN  113  FORMAT  AND  LOOKS  FOR  A  ZERO 

C  AS  A  FLAG  FOLLOWING  THE  LAST  DATA  ENTRY. 

C 

C ******************************************************** ******* 

c 

c 

COMMON  INDEX ( 40) 

CALL  WRT 
CONTINUE 

1  READ  ( 5> 1 00 ) I BINX 
100  FORMAT  (113) 

IF  (IBINX.EQ.O)  STOP 
P=IBINX 
C 

C************************ *************************************** 

c 

C  CHECK  WHICH  BITS  ARE  SET  AND  INDICATE  BY  PUTTING  ONES  IN  AN 
C  ARRAY. 

C 

C*** ************************ ************************************ 

C 

DO  5  1  =  1 » 40 
INDEX  (I)=0 
5  CONTINUE 
DO  15  K  =  1 »  40 
L=40-K 
M»P-2**L 
N=41-K 

IF  (M.LT.O)  GO  TO  25 

INDEX  (N)*l 

P=M 

25  CONTINUE 
15  CONTINUE 

WRITE  (&>140)  I BI NX  > ( INDEX ( I ) » I  =  1  *  40 ) 

140  FORMAT  ( • 0  * > 1 1 3  *  1 X , 4012 > 

GO  TO  1 
END 
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n  o  n  o 


SUBROUTINE  WRT 
C 

C**)M*****t****#***:M*#*****************#**#)|(#*#*#****#*******#* 

THIS  SUBROUTINE  WRITES  OUT  THE  HEADINGS  WHICH  ARE  THE  SECTION 
NUMBERS  TO  WHICH  THE  SET  BITS  CORRESPOND, 

c tttttttt* ******* **************************************%*% 

C 

COMMON  INDEX  (40) 

WRITE  (6.100) 

100  FORMAT ( *  1 ' » 15X . ' 1  12222222333333333  3*. 

A*  44444444444444444455  5*) 

WRITE  ( 6  f 1 10  ) 

110  FORMAT  ( 1 6X  *  *  0  1011222201111111220111*. 

A*  11111123456789012*) 

WRITE  (6*120) 

120  FORMAT  (16X**0  00010123001111110100111*. 
A*  2333400000000000*) 

WRITE  (6*130) 

130  FORMAT  ( 1 X INDEX *. 1  OX .* 0  000000000001234  5*. 

A*  0000012001200000000000  O') 

RETURN 

END 
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INPUT 


26791580349 
469108736 
1689134856 5 
468703594 

0000 


OUTPUT 


1 

1 

9 

9 

9 

9 

9 

9 

9 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

5 

5 

5 

0 

1 

0 

1 

1 

9 

9 

9 

9 

0 

1 

1 

1 

1 

1 

1 

1 

2 

9 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

3 

4 

5 

6 

7 

8 

9 

0 

1 

9 

0 

0 

0 

0 

1 

0 

1 

o 

3 

0 

0 

1 

1 

1 

1 

1 

1 

0 

1 

0 

0 

1 

1 

1 

4. 

3 

3 

3 

4 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

INDEX 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

9 

3 

4 

5 

0 

0 

0 

0 

0 

1 

9 

0 

0 

1 

9 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

26791580349 

1 

0 

1 

1 

1 

1 

0 

1 

0 

1 

0 

0 

1 

0 

0 

0 

1 

1 

1 

0 

0 

1 

1 

1 

0 

0 

1 

1 

1 

1 

0 

0 

0 

1 

1 

0 

0 

0 

0 

0 

469108736 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

1 

1 

0 

1 

1 

1 

1 

1 

1 

0 

1 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

16891348565 

1 

0 

1 

0 

1 

0 

1 

0 

0 

1 

1 

0 

0 

0 

0 

1 

1 

0 

1 

1 

0 

0 

1 

1 

0 

1 

1 

1 

0 

1 

1 

1 

1 

1 

0 

0 

0 

0 

0 

0 

468703594 

0 

1 

0 

1 

0 

1 

1 

0 

1 

0 

0 

1 

1 

0 

1 

1 

1 

1 

1 

1 

0 

1 

1 

1 

1 

1 

0 

1 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

INDICES  INPUT  AND  OUTPUT 


50 


o  o  to  cn 


o  o  n  n 


PROGRAM  WRITE  ( PREFS , OUTPUT , TAPE  1 =PREFS , TAPE2  =  0UTPUT ) 

C 

THIS  PROGRAM  IS  DESIGNED  TO  REWRITE  AND  RENUMBER  A  BIBLIOGRAPHIC 
FILE  INTO  A  FORM  SUITABLE  FOR  EDITING  PRIOR  TO  TYPING 

C** 

COMMON  LIST  (1000,17) 

DO  5  1=1,1000 

READ  (1,100)  ( LIST ( I » K ) » K=2 » 17 ) 

100  FORMAT  ( I6*A10,A2,A10,A2,A10,A2»3A10,A8,3A10,A6» 12) 

IF  (LIST (I, 2) .EQ*0)  GO  TO  10 
LIST  ( 1 , 1 >  =  I 

WRITE  (2,110)  (LIST( I ,K) ,K=1 , 17) 

110  FORMAT  ( •** , I6,2X, I6,2X, A10, * , * , IX, A2, 1 , * ,2X,A10, * , ' , 1X,A2, ’  ,  ’ ,2X, 
AA10, * , * , IX, A2, ’ , * , 15X , 3A10 , A8/ , • *  * , 3A10 , A6 , 70X »  *  19* , 12,/) 

5  CONTINUE 
10  STOP 
ENn 
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PROGRAM  LIST  (  PREFS  »  TTY  »  OUTPUT  »  TAPE5  =  F'REFS  »  TAF’E6  =  TTY  »  TAF’E7^  OUTPUT ) 


C 

THIS  PROGRAM  IS  DESIGNED  TO  INTERPRET  THE  REFERENCE  FILE  AND 
PLACE  THE  REFERENCES  IN  A  FORM  APPROPRIATE  FOR  THE 
CITATIONS  IN  THE  TEXT  OF  THE  PAPER. 

^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  j|^  ^  ^  ^  ^  ^  ^  ^  ^ 

COMMON  IWKLST  (850*5) 

N  =  0 

no  5  1=1 * 850 

READ  (5*100) ( IWKLST ( I  *  J) *  J  =  1 *5) 

100  FORMAT ( I6*A10*2X*A10*2X*A10*76X*I2) 

IF  ( IWKLST (III)  ♦ EQ ♦ 0 )  GO  TO  10 
N  =  N  + 1 

5  CONTINUE 
10  CONTINUE 
M 1  =N 
35  12-0 
Ml =  M1~1 
DO  15  1  =  1  *  Ml 
1 1  =  IWKLST  < I  *  1  ) 

J=I  +  1 

I3=IWKLST (J* 1 ) 

IF  (13-11)  20*25*25 
20  DO  30  N  =  1  *  5 
M= I WKLST ( I  *  K ) 

IWKLST ( I*K)=IWKLST (J*K) 

IWKLST (J*K)=M 
30  CONTINUE 
12=12+1 

25  CONTINUE 
15  CONTINUE 

IF< 1 2  ♦  GT  ♦  0 )  GO  TO  35 
DO  40  1=1 *N 

IF  ( IWKLST ( I  *  4 ) ♦ GE ♦ 0 )  GO  TO  50 
IF  ( I WKLST (1*3) ♦ GE ♦ 0 )  GO  TO  60 

WRITE  (6*110)  I WKLST ( I  *  1 ) * IWKLST (1*2)* IWKLST (1*5) 

110  FORMAT  (5X* 16* 10X* A10* B * " *  IX* B 19B *  12) 

GO  TO  45 

50  WRITE  (6*120)  I WKLST ( I  *  1 ) *  I WKLST ( I  *  2 ) *  I WKLST ( I  *  5 ) 

120  FORMAT  ( 5X *  I  6  *  1  OX  *  A 1 0  * B  ET  AL * B *  1 X  *  1 1 9  *  *  1 2 ) 

GO  TO  45 

60  WRITE  (6* 130) IWKLST (1*1)* IWKLST (1*2) * IWKLST (1*3) * IWKLST ( I *5) 

130  FORMAT  <5X* I6*10X*A10* 1  AND  B * A1 0  * B * • *  1 X  * • 1 9 1  *  1 2 ) 

45  CONTINUE 
40  CONTINUE 


PROGRAM  SECCOR  ( OUTPUT  * TT Y * FREES * I NPUT * NEWREF *  TAPE 1 ^OUTPUT f 
AT APE2=TTY *TAPE3=FREFS *  TAPE 4  = INPUT * T APE5=NE WREF ) 

C 

C********* 

C  THIS  PROGRAM  IS  DESIGNED  AS  AN  INTERACTIVE  METHOD  TO  CORRECT 

C  THE  SECTIONS  A  REFERENCE  IS  FOUND  IN*  THE  FILES  INPUT* 

C  OUTPUT  AND  TTY  MUST  EE  CONNECTED  TO  YOUR  TERMINAL  AND  THE  FILE 
C  PREFS*  PERMANENT  REFERENCES  *  MUST  BE  AVAILABLE  TO  THE 
C  PROGRAM  AS  THE  WORKING  DATA  FILE* 

C 

£%*%%*%%*%****%*. ************ *********************************** 

C 

COMMON  LIST (  1000* 1 4 ) *  I NDEX ( 40 ) *  I B I T ( 40 ) 

DO  10  1=1*1000 

READ  (3*1)  (LIST(I*J)*J=1*14) 

1  FORMAT  ( 16* A10* 10A10* A2* 113) 

IF  (LIST ( I  *  1 ) . EQ  *  0 )  GO  TO  20 

10  CONTINUE 
20  CONTINUE 

DO  12  16=1*40 
17=16-1 

I  BIT ( 16 ) =2**17 
12  CONTINUE 

0 

*************** 

c 

C  IDENTIFY  REFERENCE  YOU  WISH  TO  AMEND*  INSERT  00  IF  YOU  WISH 

C  TO  END  PROGRAM*  INPUT  MUST  BE  IN  16  FORMAT*  IE  111  IS  INPUT 

C  AS  0001  1  1  * 

C 

*%%*%%**%***%%**%* ****** %t*t%t*t*t%**t%*%****t%t%t%t*t*t*** 

c 

2  PRINT  (2*5) 

5  FORMAT  ( *  0  *  *  *  TYPE  IN  ACCESS  NO*  IN  16  FORMAT.  •) 

READ  (4*15)  I  AC 
15  FORMAT  (16) 

IF  (  I A  C  *  E  Q • 0 )  GO  TO  4 
I  N  D  =  0 

DO  30  1=1*1000 

IF  ( IAC.EQ.LIST ( I  *  1 ) )  WRITE  (2*25) (LIST (I*J) *  J= 1  *  2 ) *  L 1ST ( I  *  14  > 
25  FORMAT  ( -0#  * '  #  #  >I6*2X*iFIRST  AUTHOR  1  *  A 1 0  * 2X *  *  I NDEX  #*I13) 

IF  ( I  AC . EQ ♦ L I  ST ( I  *  1 ) )  NUM-I 
IF  (IAC.EQ.LIST (1*1))  IND=LIST (1*14) 

IF  ( L I  ST ( I  *  1 ) . EQ  *  0 ) GO  TO  40 
30  CONTINUE 
40  CONTINUE 
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c******  **#*******#####*#*#*#*******#*#***##*#***#  *##<:**#**  id#*****# 

C 

C  WAS  REFERENCE  FOUND?  IF  NOT,  ASK  FOR  ACCESS  NUMBER  AGAIN, 

C 

^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  j||  j||  ^  ^  «|^ 

C 

IF  (IND.EQ.O)  GO  TO  2 
I N  D 1  =  I N  D 
C 

C  ^  <|t  ^  30C  ^  t  ^  30C ^  30C  t  J  j)*  ^  ^  l|t  t  ^  ^  ^  ^  ^  *1^  ^  ■jf  ^  ■It  ^  3j(  t  30(  ^  *|t  J  30C  <)(  ]|C  30!  )|(  J  30!  3(t  30C  ](.  30!  f  30!  30C  30C  30C  30C  3(C 

C 

C  TRANSLATE  INDEX  NUMBER  OF  REFERENCE  IN  SECTIONS  PREVIOUSLY  SET, 

C 

L30C30C30C30C303  30(  30C30C30C  30(  30C3|C30C30!  30(  30(  30C30C0C30C30C30C  30(  30C30C30C30C30C30C30C30(30C30C30C30!30C30C  30(  30C30C30C30C  30C  30C  30C  30C  30C  30C  30C  30C  30C  30C  30C  30C  )(C  30C  30C  30C  30C  30C  30C  30C  30C  30C  30C 

c 

DO  55  1=1,40 
N=4 1 - I 
INDEX(N)=0 
M*I ND1 - IBIT (N ) 

IF  CM.LT.O)  GO  TO  65 
INDEX (N)  =  l 
IND1=M 
65  CONTINUE 
55  CONTINUE 
C 

C**tt*t*tt1i;%t*t*****t*%*%**tt*t*t*'t*t***t,$t*t*t$t*****t****tt*$**t 

C 

C  IDENTIFY  SECTION  YOU  WANT  CHANGED.  INSERT  00  IF  YOU  ARE 
C  FINISHED  WITH  THIS  ACCESS  NUMBER. 

C 

C30(  30C30C30C30C30C30C^C30C30C30C30C30C  30(  30C30C30C4C30C)0C30C30(30C30C30C30C30C  30(  30t]0C30C4C30C30C30C0(30C30C30C30C30C30C3|(30!30C30(3|C3tC4C30!3t!3|C30C3(C30C4C3|C3|C30C30C30C3^30C3tC30C 

c 

3  PRINT  (2,35) 

35  FORMAT  CO', 'TYPE  IN  SECTION  NUMBER  ’) 

8  READ  (4,45)  ISECT 

IF  (ISECT. EQ.O)  GO  TO  2 
45  FORMAT  (14) 

CALL  SECTIN  (ISECT, ID 
IF  (II. EQ.O)  PRINT  (2,100) 

100  FORMAT  ('O',' ERROR  IN  SECTION  NUMBER,  RE-ENTER  •> 

IF  ( 1 i .EQ.O)  GO  TO  8 
I5=fi-i 
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c 

C********************************************************* ******** 

C 

C  DO  YOU  WANT  SECTION  ADDED  OR  REMOVED? 

C 

C.**  *************************************************  ************** 

C 

PRINT  <2 >75) 

75  FORMAT  ('O’ , 'TYPE  IN  1  FOR  INSERTION,  2  FOR  DELETION  ■> 

READ  (4,85)  IFLAG 
85  FORMAT  (ID 

IF  ( IFLAG. EQ. 2)  00  TO  6 
C 

^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  }f(  )fC  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ]|[  ]|(  ]|(  ]|(  ]|[  ^  ^  ^  ^  ^  ^  jj/ 

c 

C  CHECK  IF  SECTION  IS  ALREADY  PRESENT.  IF  NOT,  ADD 
C  APPROPRIATE  FACTOR  TO  THE  SECTION  INDEX. 

C 

C*************************************** ************************** 

C 

IF  ( I NDEX ( I D . EQ . 0 )  I ND= I ND  + 1 B I T ( I  D 
LIST (NUM, 1 4 ) = IND 
GO  TO  3 
C 

p  ^  \L  ^  ^  ^  X  ^  ^  ^  dr  dr  d*  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  d  L  d  d  d 

L*  ®  ^  ®  ®  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ®  ^  ^  ^  ®  ^  ^  ®  ^  ^  ^  •  v  ^  ■'v  ^  v*  *  ^  ^  ^  -p  ^  ^  ^  ^  ^  ®  ^  p  P'  p 

c 

C  CHECK  IF  SECTION  IS  NOT  PRESENT*  IF  PRESENT  r  SUBTRACT 
C  APPROPRIATE  FACTOR  FROM  THE  SECTION  INDEX* 

C 

C  ***************************************************************** 

C 

6  IF  ( INDEX ( 1 1 ) *EQ* 1  )  IND-IND-IBIT ( II > 

L I  ST ( NUM  > 1 4 )  =  I N D 
GO  TO  3 
C 

C*********************** ********************  ***************  ******* 

C 

C  WRITE  OUT  A  NEW  CORRECTED  REFERENCE  FILE  TO  FILE  NEWREF* 

C 

|**  ^  ^  ^  ^  ^  ^  ^  ^  j|r  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^r  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^ 

c 

4  DO  50  1=1,1000 

WRITE  (5,95) (LIST(  I  ,  J)  , J=1  ,  14  ) 

95  FORMAT  ( I  6 , A  1 0 , 1 0 A  1 0 , A2 , 1 1 3  ) 

IF  (LIST( I , 1  )  .EQ.O)  STOP 
50  CONTINUE 
END 
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SUBROUTINE  SECTIN  (ISECT, II) 

COMMON  LIST  ( 1 OOO , 1 4 > , INDEX  ( 40 > » IBI T ( 40 > 

C 

C***************************** ************************************ 

THIS  SUBROUTINE  IDENTIFIES  THE  SECTION  YOU  ARE  REFERRING  TO, 
FOR  COMPUTER  USAGE. 

C*************** *********************************** *************** 

C 

11  =  0 

IF  ( ISECT.EQ. 1000)  11  =  1 
IF  (ISECT.EQ. 1100)  11=2 
IF  (ISECT.EQ. 2000)  11=3 
IF  (ISECT.EQ. 2100)  11=4 
IF  (ISECT.EQ. 2110)  11=5 
IF  (ISECT.EQ. 2200)  11=6 
IF  ( ISECT .EQ .2210)  11=7 
IF  ( ISECT.EQ. 2220)  11=8 
IF  (ISECT.EQ. 2230)  I1=V 
IF  (ISECT.EQ. 3000)  11=10 
IF  (ISECT.EQ. 3100)  11=11 
IF  (ISECT.EQ. 3110)  11=12 
IF  (ISECT.EQ. 3111)  11=13 
IF  (ISECT.EQ. 3112)  11=14 
IF  (ISECT.EQ. 3113)  11=15 
IF  (ISECT.EQ. 3114)  11=16 

IF  (ISECT.EQ. 3115)  11=17 
IF  (ISECT.EQ. 3200)  11=18 
IF  (ISECT.EQ. 3210)  11=1? 

IF  (ISECT.EQ. 4000)  11=20 
IF  ( ISECT .EQ . 4100)  11=21 
IF  (ISECT.EQ. 4110)  11=22 
IF  (ISECT.EQ. 4111)  11=23 
IF  (ISECT.EQ. 4112)  11=24 
IF  (ISECT.EQ. 4120)  11=25 
IF  (ISECT.EQ. 4130)  11=26 
IF  (ISECT.EQ. 4131)  11=27 
IF  (ISECT.EQ. 4132)  11=28 
IF  ( ISECT.EQ. 4140)  11=29 
IF  (ISECT.EQ. 4200)  11=30 
IF  (ISECT .EQ. 4300)  11=31 
IF  (ISECT.EQ. 4400)  11=32 
IF  (ISECT.EQ. 4500)  11=33 
IF  (ISECT.EQ. 4600)  11=34 
IF  (ISECT.EQ. 4700)  11=35 
IF  (ISECT.EQ. 4800)  11=36 
IF  ( ISECT .EQ. 4900)  11=37 
IF  (ISECT.EQ. 5000)  11=38 
IF  (ISECT.EQ. 5100)  11=3? 

IF  ( ISECT .EQ. 5200)  11=40 
RETURN 
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DTNSRDC  ISSUES  THREE  TYPES  OF  REPORTS 

1  DTNSRDC  REPORTS.  A  FORMAL  SERIES.  CONTAIN  INFORMATION  OF  PERMANENT  TECH 
NICAL  VALUE  THEY  CARRY  A  CONSECUTIVE  NUMERICAL  IDENTIFICATION  REGARDLESS  OF 
THEIR  CLASSIFICATION  OR  THE  ORIGINATING  DEPARTMENT 

2  DEPARTMENTAL  REPORTS.  A  SEMIFORMAL  SERIES.  CONTAIN  INFORMATION  OF  A  PRELIM 
INARY,  TEMPORARY.  OR  PROPRIETARY  NATURE  OR  OF  LIMITED  INTEREST  OR  SIGNIFICANCE 
THEY  CARRY  A  DEPARTMENTAL  ALPHANUMERICAL  IDENTIFICATION 

3  TECHNICAL  MEMORANDA.  AN  INFORMAL  SERIES.  CONTAIN  TECHNICAL  DOCUMENTATION 
OF  LIMITED  USE  AND  INTEREST  THEY  ARE  PRIMARILY  WORKING  PAPERS  INTENDED  FOR  IN 
TERNAL  USE  THEY  CARRY  AN  IDENTIFYING  NUMBER  WHICH  INDICATES  THEIR  TYPE  AND  THE 
NUMERICAL  CODE  OF  THE  ORIGINATING  DEPARTMENT  ANY  DISTRIBUTION  OUTSIDE  DTNSRDC 
MUST  BE  APPROVED  BY  THE  HEAD  OF  THE  ORIGINATING  DEPARTMENT  ON  A  CASE  BY  CASE 
BASIS 


